COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C	PROGRAM TRYC
C00003 ENDMK
C⊗;
C	PROGRAM TRYC
	COMMON  IBUF(5000)
	COMMON /FAC/JFAC,KFAC
	TYPE 10
	ACCEPT 20,JFAC,KFAC
10	FORMAT(' TYPE X FACTOR AND Y FACTOR   '$)
	IF(JFAC.EQ.0)JFAC=150
	IF(KFAC.EQ.0)KFAC=150
20	FORMAT(2I)
	CALL PLOTS(IBUF,5000,1)
	CALL PLOT(15.,14.75,-3)
	R=10.
  	CX=1.
  	CY=2.
  	CALL CIRCL2(R,CX,CY)
CC	CALL CIRCLE(R)
	TYPE 30,R,CX,CY
30	FORMAT(3F)
	CALL PLOT(0.,-30.,-3)
	CALL PLOT(0.,0.,999)
	STOP 
	END